home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / ags210.arc / CVWMAC.PRG < prev    next >
Text File  |  1988-05-03  |  773b  |  39 lines
  1. *   Command file CVWMAC
  2. *   WPS Conv Selection File
  3. *   RL Coppedge
  4. *   14 Mar 88
  5. *   V 2.10
  6. DO CASE
  7.    CASE Wcnt = 1
  8.       N = 1
  9.       SET COLOR TO W
  10.       DO WHILE N<=Dbtrm
  11.          Nn = LTRIM(STR(N))
  12.          XXX = Va_nme&nn
  13.          &XXX
  14.          N = N+1
  15.       ENDDO
  16.    CASE Wcnt = 2
  17.       IF Val(snm)>0 .and. VAL(Snm)<Dbtrm
  18.          SET COLOR TO W
  19.          IF Ch_flag&Snm
  20.             SET COLOR TO B+
  21.          ENDIF
  22.          Lin =Va_nme&snm
  23.          &lin
  24.       ENDIF
  25.    CASE Wcnt = 3
  26.       IF Ch_flag&Snm
  27.          Ch_flag&Snm = .F.
  28.       ELSE
  29.          Ch_flag&Snm = .T.
  30.       ENDIF
  31.    CASE Wcnt = 4
  32.       IF Val(snm)>0 .and. VAL(Snm)<Dbtrm
  33.          SET COLOR TO W
  34.          Lin =Va_nme&snm
  35.          &lin
  36.       ENDIF
  37. ENDCASE
  38. RETURN
  39.